home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / EDUCATE / FDPLOT.ARJ / MENU.BAS < prev    next >
BASIC Source File  |  1992-01-28  |  3KB  |  61 lines
  1. 100 REM Abri Technologies Inc., Cacapon, WV 25422, MENU PROGRAM
  2. 120 DIM PN$(50),P$(50)
  3. 125 SCREEN 0
  4. 126 ON ERROR GOTO 7000
  5. 130 I=0
  6. 1000 DATA "PLOT                           ( When finished A or B )","PLOTN.BAS"
  7. 1010 DATA "RE-PLOT                        ( press ─┘ for menu. )","T.BAS"
  8. 1015 DATA "Paired statistics - LSF","STAT.BAS"
  9. 1020 DATA "Ellipsoid Surface Area","ELLIPSA.BAS"
  10. 1030 DATA "Registration Info.","REG"
  11. 1520 DATA "EXIT"," "
  12. 1535 PRINT
  13. 1540 REM REPEAT UNTIL P$(I)="EXIT"
  14. 1550   I=I+1
  15. 1560   READ P$(I),PN$(I)
  16. 1580 IF P$(I)<>"EXIT" THEN 1540
  17. 1585 REM ENDWHILE
  18. 1586 CLS :REM CLR SCREEN
  19. 1587 PRINT" Abri Technologies, Inc., WV 25422"
  20. 1588 PRINT" SHAREWARE 'FDplot' Version 1.2 - (C) 1991":PRINT
  21. 1589 PRINT"     - PLEASE REGISTER -":PRINT: PRINT" Programs available":PRINT
  22. 1590 REM
  23. 1591 FOR J=1 TO I
  24. 1592   PRINT " ";CHR$(64+J);" - ";P$(J)
  25. 1596 NEXT J
  26. 1600 PRINT
  27. 1603 PRINT " Enter choice letter _";:GOSUB 8000
  28. 1610 NC=ASC(A$)-64
  29. 1615 IF NC=I-1 THEN GOTO 9000
  30. 1620 IF NC=I THEN SYSTEM
  31. 1630 IF (NC-1)*(I-NC)<0 THEN 1600
  32. 1635 PRINT:PRINT"Loading Program . . . .":PRINT
  33. 1640 IF INSTR(PN$(NC),".COM") OR INSTR(PN$(NC),".EXE") THEN SHELL PN$(NC):CHAIN "MENU.BAS"
  34. 1645 IF INSTR(PN$(NC),".BAS") THEN CHAIN PN$(NC)
  35. 1647 SHELL "MORE < "+PN$(NC):CHAIN "MENU.BAS"
  36. 1650 END
  37. 7000 ' If program missing.
  38. 7010 PRINT: PRINT "BASIC program '"+PN$(NC)+"' not found.": PRINT
  39. 7020 GOTO 1590
  40. 8000 A$=INKEY$:IF (A$="") GOTO 8000
  41. 8010 IF (ASC(A$)> 96) THEN A$=CHR$(ASC(A$)-32)
  42. 8020 PRINT A$: RETURN
  43. 9000 CLS:
  44. 9005 PRINT" This is Shareware and not Public Domain Software. Examine this free"
  45. 9010 PRINT" for 30 days, if you find it useful please send $15 registration fee to"
  46. 9020 PRINT
  47. 9030 PRINT"   Abri Technologies, Inc."
  48. 9040 PRINT"   HCR 62, Box 100K"
  49. 9050 PRINT"   Great Cacapon, WV 25422 USA":PRINT
  50. 9060 PRINT" You will receive all updates and corrections":PRINT
  51. 9065 PRINT" ** FDplot Plus **"
  52. 9070 PRINT" An advanced scientific Plot/LR-Statistics software package is also available."
  53. 9080 PRINT" It will plot up to 3 functions (any form - standard, parametric or polar) and"
  54. 9090 PRINT" 3 data sets (including x/y error bars) on the same graph. Functions/data can "
  55. 9100 PRINT" be saved on disc as ASCII files. The stat portion will save the data and "
  56. 9110 PRINT" LR-line on disc for plotting. The FDplot Plus enhanced package (complete with" 
  57. 9120 PRINT" documentation) is only $25.":PRINT
  58. 9130 PRINT" Please use registration/order form in the REGISTER file.": PRINT
  59. 9200 PRINT: INPUT" Press ─┘ to return to menu ";C$:
  60. 9210 GOTO 1586
  61.